home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / GMS / Source / E / Fireworks / WordIms.e < prev    next >
Encoding:
Text File  |  1996-10-31  |  2.4 KB  |  192 lines
  1. /*
  2.  * These are the character images for the word explosion thing
  3.  */
  4.  
  5. OPT MODULE
  6.  
  7. OPT EXPORT
  8.  
  9. EXPORT PROC getchar(word:PTR TO CHAR,c)
  10. /*
  11.  * Get pointer to image array of character at c in word
  12.  * Word must be in lower case.
  13.  */
  14.  
  15.   DEF r=NIL,n=NIL
  16.  
  17.   r:={blank}
  18.  
  19.   IF (word[c]>="A") AND (word[c]<="Z")
  20.  
  21.     r:={letters}+((word[c]-("A"))*30) -> get char
  22.  
  23.   ENDIF
  24.  
  25. ENDPROC r
  26.  
  27. blank:
  28.  
  29. CHAR 1,1,1,1,1
  30. CHAR 1,0,0,0,1
  31. CHAR 1,0,0,0,1
  32. CHAR 1,0,0,0,1
  33. CHAR 1,1,1,1,1
  34.  
  35. letters:
  36.  
  37. CHAR 0,1,1,1,0
  38. CHAR 1,0,0,0,1
  39. CHAR 1,1,1,1,1
  40. CHAR 1,0,0,0,1
  41. CHAR 1,0,0,0,1
  42.  
  43. CHAR 1,1,1,1,0
  44. CHAR 1,0,0,0,1
  45. CHAR 1,0,1,1,0
  46. CHAR 1,0,0,0,1
  47. CHAR 1,1,1,1,0
  48.  
  49. CHAR 0,0,1,1,1
  50. CHAR 0,1,0,0,0
  51. CHAR 1,0,0,0,0
  52. CHAR 0,1,0,0,0
  53. CHAR 0,0,1,1,1
  54.  
  55. CHAR 1,1,1,1,0
  56. CHAR 1,0,0,0,1
  57. CHAR 1,0,0,0,1
  58. CHAR 1,0,0,0,1
  59. CHAR 1,1,1,1,0
  60.  
  61. CHAR 1,1,1,1,1
  62. CHAR 1,0,0,0,0
  63. CHAR 1,1,1,0,0
  64. CHAR 1,0,0,0,0
  65. CHAR 1,1,1,1,1
  66.  
  67. CHAR 1,1,1,1,1
  68. CHAR 1,0,0,0,0
  69. CHAR 1,1,1,0,0
  70. CHAR 1,0,0,0,0
  71. CHAR 1,0,0,0,0
  72.  
  73. CHAR 0,1,1,1,1
  74. CHAR 1,0,0,0,0
  75. CHAR 1,0,1,1,1
  76. CHAR 1,0,0,0,1
  77. CHAR 0,1,1,1,0
  78.  
  79. CHAR 1,0,0,0,1
  80. CHAR 1,0,0,0,1
  81. CHAR 1,1,1,1,1
  82. CHAR 1,0,0,0,1
  83. CHAR 1,0,0,0,1
  84.  
  85. CHAR 1,1,1,1,1
  86. CHAR 0,0,1,0,0
  87. CHAR 0,0,1,0,0
  88. CHAR 0,0,1,0,0
  89. CHAR 1,1,1,1,1
  90.  
  91. CHAR 1,1,1,1,1
  92. CHAR 0,0,1,0,0
  93. CHAR 0,0,1,0,0
  94. CHAR 0,0,1,0,0
  95. CHAR 1,1,0,0,0
  96.  
  97. CHAR 1,0,0,0,1
  98. CHAR 1,0,0,1,0
  99. CHAR 1,1,1,0,0
  100. CHAR 1,0,0,1,0
  101. CHAR 1,0,0,0,1
  102.  
  103. CHAR 1,0,0,0,0
  104. CHAR 1,0,0,0,0
  105. CHAR 1,0,0,0,0
  106. CHAR 1,0,0,0,0
  107. CHAR 1,1,1,1,1
  108.  
  109. CHAR 0,1,0,1,0
  110. CHAR 1,0,1,0,1
  111. CHAR 1,0,0,0,1
  112. CHAR 1,0,0,0,1
  113. CHAR 1,0,0,0,1
  114.  
  115. CHAR 1,0,0,0,1
  116. CHAR 1,1,0,0,1
  117. CHAR 1,0,1,0,1
  118. CHAR 1,0,0,1,1
  119. CHAR 1,0,0,0,1
  120.  
  121. CHAR 0,1,1,1,0
  122. CHAR 1,0,0,0,1
  123. CHAR 1,0,0,0,1
  124. CHAR 1,0,0,0,1
  125. CHAR 0,1,1,1,0
  126.  
  127. CHAR 1,1,1,1,0
  128. CHAR 1,0,0,0,1
  129. CHAR 1,1,1,1,0
  130. CHAR 1,0,0,0,0
  131. CHAR 1,0,0,0,0
  132.  
  133. CHAR 0,1,1,1,0
  134. CHAR 1,0,0,0,1
  135. CHAR 1,0,0,0,1
  136. CHAR 1,0,0,1,1
  137. CHAR 0,1,1,1,1
  138.  
  139. CHAR 1,1,1,1,0
  140. CHAR 1,0,0,0,1
  141. CHAR 1,1,1,1,0
  142. CHAR 1,0,0,0,1
  143. CHAR 1,0,0,0,1
  144.  
  145. CHAR 0,1,1,1,1
  146. CHAR 1,0,0,0,0
  147. CHAR 0,1,1,1,0
  148. CHAR 0,0,0,0,1
  149. CHAR 1,1,1,1,0
  150.  
  151. CHAR 1,1,1,1,1
  152. CHAR 0,0,1,0,0
  153. CHAR 0,0,1,0,0
  154. CHAR 0,0,1,0,0
  155. CHAR 0,0,1,0,0
  156.  
  157. CHAR 1,0,0,0,1
  158. CHAR 1,0,0,0,1
  159. CHAR 1,0,0,0,1
  160. CHAR 1,0,0,0,1
  161. CHAR 0,1,1,1,1
  162.  
  163. CHAR 1,0,0,0,1
  164. CHAR 1,0,0,0,1
  165. CHAR 1,0,0,0,1
  166. CHAR 0,1,0,1,0
  167. CHAR 0,0,1,0,0
  168.  
  169. CHAR 1,0,0,0,1
  170. CHAR 1,0,0,0,1
  171. CHAR 1,0,1,0,1
  172. CHAR 1,0,1,0,1
  173. CHAR 0,1,0,1,0
  174.  
  175. CHAR 1,0,0,0,1
  176. CHAR 0,1,0,1,0
  177. CHAR 0,0,1,0,0
  178. CHAR 0,1,0,1,0
  179. CHAR 1,0,0,0,1
  180.  
  181. CHAR 1,0,0,0,1
  182. CHAR 0,1,0,1,0
  183. CHAR 0,0,1,0,0
  184. CHAR 0,0,1,0,0
  185. CHAR 0,0,1,0,0
  186.  
  187. CHAR 1,1,1,1,1
  188. CHAR 0,0,0,1,0
  189. CHAR 0,0,1,0,0
  190. CHAR 0,1,0,0,0
  191. CHAR 1,1,1,1,1
  192.